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COPYRIGHT NOTICE 

Most computer programs have been submitted for protection under the same United 
States Copyright Laws that protect other types of publications. 

GRT Corporation is a "publisher" of these materials under a variety of contracts with 
third-party authors and copyright owners. 

It is a violation of the law to reproduce these materials for any purpose other than per- 
sonal convenience, or for any purpose at all that would prevent the copyright owner 
from fully realizing his due benefits under the terms and provisions of the contract 
agreements. 

In plain words, you cannot resell these programs to any other person, you cannot 
distribute copies of these programs to any other person, and you cannot conduct any 
sort of a commercial activity that uses these programs as a part of your business. 

Please direct any questions about this subject to the Consumer Computer Group, GRT 
Corporation, 1286 N. Lawrence Station Road, Sunnyvale, California 94086, or telephone 
(408)734-2910. 
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.• If you think there are significant differences between Radio Shack's 

I Level I and Level II Basics, be prepared for another quantum jump in per- 

- ; J sonal programming; 

G2's LEVEL III BASIC is not just another Basic. It is an actual enhance- 
ment to the already powerful Level II Basic. It adds the features of Radio 
Shack's Disk Basfc to Level II and you don't have to buy an expansion 
. box and a disk drive. And it has many more great features including ad- 

'<' • I vanced graphics Jhat turn your TRS-80 screen into a virtual electronic 

■ drawing board. 

i G2's LEVEL III BASIC is for TRS-80 computers with a minimum of 16K 

j Ram memory and Level II Basic. It comes on cassette tape and resides 

j in less than 5.25K Ram memory. Even with the minimum system this 

I leaves you with more than 10K Ram for programming space! 

j You'll soon discover that LEVEL III BASIC also corrects some of the 

problems with Level II Basic. It eliminates keyboard bounce and n r0 - 
? vides more reliable cassette tape loading. Two new commands LOA" 

I and SAVE, replace the Level II CLOAD and CSAVE commands. They per- 

\ mit cassette tape interfacing without the usual "volume sensitivity" of 

the recorder. 

i G2's LEVEL III BASIC has a NAME command that will automatically 

: renumber program line numbers, and do it the way you specify. For ex- 

ample, you can renumber a program beginninq at line number 150 and in- 
; crement it by 25 (150, 175, 200, etc.). Line numbers followino GCTOs 

i GOSUBs, etc., are automatically edited to reflect the new sequence 

With this feature, you'll find it much easier to edit proarams. Your pro- 
grams will be better organized and you won't have to worry about run- 
ning out of space between program lines. 

Another majOF feature of LEVEL III BAS IC is a s et of 26 user-changeabia 
"Shift-Key Entries:' Just press the |SHIFT| kev and the [RJ k<=v 
simultaneously and LEVEL III will execute a R UN comm and. You don't 
have to type R-U-N. You don't even have to use [ENTERl ! Call it the lazv 
way to computer programming if you like, but vou'll soon find yours»l'f 
using this feature. 



Other features of LEVEL III BASIC include Error Messages that arc 
"spelled out" instead of abbreviated; a new input instruction called 
LINE INPUT that allows punctuation in an input response; an INSTR in- 
struction to search a string for a substring; user defined functions; 
automatic Hex and Octal conversion; and much more. 

As you can see, G2's LEVEL III BASIC is bound to broaden your pro- 
gramming horizons. It brings ease, speed, power and flexibility to your 
TRS-80 Level II Basic computer that you'might have thought not possi- 
ble. So dig in and start programming! V 
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In 1975, Microsoft .wrote Altair Basic, the first Basic interpreter for a 
microcomputer. Since then, Microsoft-written Basics have become the 
virtual standard of the persona;. computing industry. 

Microsoft has a reputation for quality, advanced programming tech- 
niques and efficiency that is surpassed by none. LEVEL III BASIC was 
written by Microsoft President, Bill Gates. GRT acknowledges and 
thanks Bill Gates for -this significant contribution to the G2 Software 
Library. 
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By necessity, the authors of this instruction booklet have assumed their 
readers have some experience programming in Basic and in particular, 
Radio Shack's Level II Basic. 

Still, we do not expect you to be a programming expert. Every descrip- 
tion has been carefully worded to avoirf undue technicality. Examples 
are provided throughout. 

This instruction booklet began as a comprehensive reference manual 
written by Andrea Lewis, it was then edited and rewritten into its current 
form by David Bunnell. GRT acknowledges and thanks Andrea Lewis 
and David Bunnell for their contribution to G2 Software Documentation. 
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Basic Interpreter Required-in order to use G2's LEVEL III BASIC vou 
must have a Radio Shack TRS-80 Computer equipped with Radio 
Shack s Level II Basic Interpreter. 

Minimum Memory. Requirenrtent-Your TRS-80 Computer must have a 
minimum of 16K RAM memory to run this software. 

Taps Format-All G2 cassette software is recorded on tape selected for 
its response and suitability for recording computer software There a- 
four recordings on Side One of G2's LEVEL III BASIC tape. These record- 
ings and the order in which they are recorded include- 1) LEV^L III BASIC 
(Cassette File), 2) LEVEL III BASIC (Cassette File), 3) LEVEL III BASIC 
(Disk rile), and 4) LEVEL 111 BASIC (Disk File) 
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To set up your TRS-80 computer, follow the instructions in your owner's 
manual, or follow these instructions: 

1. Plug in the power cords from the Video Display, Keyboard, and 
Cassette Recorder. Each requires a source of 120 volts. 60Hz 
AC power, which is standard in most buildings. 

2. Make sure the power button on the back of the Keyboard is 
turned off (button out). 

3. Connect the gray cable from the Video Monitor to the VIDEO 
jack on the back of the Keyboard. Do this carefully, making 
sure that the pins line up correctly. 

4. Using the same care as above, connect the gray cable from the 
Power Supply to the back of the Keyboard. 

5. Connect the short cassette cable to the TAPE jack on the back 
of the Keyboard. 

6. Connect the black plug on the other end of the cable to the 
EAR jack on your recorder. 

7. Connect the large gray plug to the AUX jack on your tape 
recorder and the smaller gray plug to the REM jack. These two 
connections are not necessary for loading programs from tape. 

8. After double-checking all connections, turn on the POWER 
switch on the back of the Keyboard and the POWER switch on 
the front of the Video Monitor. 

9. For best resuits, allow your system to warm up for a few 
minutes before attempting to load LEVEL III BASIC or any 
other programs. 
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Follow these instructions to load: 

1. Insert the LEVEL ill BASIC cassette into your tape deck 

2. Press the- [REWIND] key on your tape deck, and allow the tap- 
to rewind fully. *"" 

3. Type the, word SYSTEM and press [ENTER] . Your computer 
should respond with the prompt: *? 

4. Following the pro mpt, type the word LEV3 and press [ENTER! 

5. Press the jPLAYj key on your tape deck. 

6. If the software is loading correctly, two asterisks (* i wMI ac- 
pear in the upper-right-hand corner of your video screen The 
asterisk (*) on the right should blink on and off LEVEL III 
takes approximately two minutes to load. 

7. When the program ,s loaded, the prompt (*?) will once aaain 
appear. Press the slash Qj key followed by JENTERJ If LEVE" 
III BASIC has been loaded correctly, the screen will displav: "" 

LEVEL III CASSETTE BASIC 
A G2 PRODUCT FROM GRT 
COPYRIGHT MICROSOFT 1979 
READY 
> 



8. As soon as the program has been loaded, press the I rEWIND) 
key on your tape deck. Let the tape rewind, then stop the tap- 
deck and remove the cassette. This will protect the cassette 
from cfny harm, no matter what you do from this point on. 

9. If you have trouble getting a good load, see "IN CASE OF 
LOADING TROUBLES" on page 10. 
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The third and fourth recordings on Side One of the tape are identical 
copies of the Disk File version of LEVEL III BASIC. This version of LEVEL 
HI is for people who have TRS-80 Disk Systems and want to save LEVEL 
HI on diskette. We do not mean to imply by this that LEVEL III will work 
with Disk BASIC. As an enhancement to Level II Basic, LEVEL III works 
only with Level II Basic. 

To save LEVEL ill on diskette, you neied'to have the TAPEDISK utility, 
which is included with most Radio Shack Disk Operating Systems. If you 
do not have this utility, check with your Radio Shack dealer. 

Read the following instructions to ioad LEVEL 
save it on diskette: 

1. insert, the LEVEL III BASIC cassette into your tape recorder. 
You can rewind the tape to Its beginning or you can cue it to 
the third or fourth recording. 

2. Turn on your TRS-80 System. The screen should display DOS 
READY. 



BASIC (Disk File) and 



3. Type TAPEDISK JENTERJ . 

4. The screen should display a questio n mark ( ?) as a prompt. 



Following this prompt, type:C DLEV3 [ENTER 



5. Press the | PLAY| key on your tape deck. 

6. If the software is loading correctly, a single blinking asterisk 
(*) will appear in the upper-right-hand corner of the screen. 

7. Once the program has been successfully loaded, the ? prompt 
will again appear. 

8. Type F DLEV3/CMD: 5500 6A00 5500 [ENTERl . 

9. The first zero (0) in the above code is the Drive number. You 
can save LEVEL III in any existing Drive, but you must enter 
the corresponding number. 

10. You should hear the "grinding" sound of the Disk Drive as 
LEVEL III is saved. Once this operation is completed, the ? 
prompt will again appear. LEVEL III BASIC has been suc- 
cessfully saved on diskette. 



11. To use LEVEL III once it is saved on diskette, do the following: 

—Turn th e compu ter on. When it says, DOS READY typ° 

BASIC JENTERJ. The screen will display two Questions" 

FILES:, Followed by SIZE OF MEMORY? Answer both with 

the lENTERl key. 

- Once D isk Basic is up and running type CMD"S" 
IJNIERj.This will get you back to DOS so you can load the 



-Type DLEV3 [ENTERl. LEVEL III should come up on the 
screen and you are ready to program. 
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Your TRS-80 may be very "volume sensitive" when it comes to loading 
cassette tapes. While LEVEL III BASIC eliminates this problem with its 
new LOAD and SAVE commands, you still have to load LEVEL ill using 
the LEVEL II SYSTEM command. This is a common frustration, but it can 
usually be alleviated by trying one of the following: 

1. Recheck all power lines and interconnecting cords. 

2. Remove cable from the earphone jack of your tape deck, and 
play the tape. You should hear both the leader tones and the 
digital program signals clearly. If you do not hear these 
sounds, your tape deck may Be faulty. Try it with a different 
tape deck. 

3. The most common loading problems are due to improper set- 
tings of the tone and volume controls on your tape deck. 
When loading cassettes, adjust your volume control up one 
half level at a time. The tone control is iess critical, but adjust 
it also. 

Once you have successfully loaded a tape, jot down the cor- 
rect settings on the cassette label. 

Since no two tape decks have exactly the same 
characteristics, it is impossible to give you specific machine 
settings. But a little trial-and-error will establish the best 
settings. 

4. If you still cannot load a tape, you may need to clean the head 
on your cassette recorder. Use a high quality head cieaner, 
one with a proper cleaning pad. Watch out for cleaner-tapes, 
they are often abrasive and have been known to scratch a 
head or two! 

There are many sources for head cleaning kits including 
Radio Shack. 

5. Demagnetize the head on your tape recorder. Through con- 
tinuous use, the head builds up a thin layer of magnetism 
which affects its ability to accurately read tapes. You can buy 
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a simple device called a "Head Demagnetizer" for about S5 
and up that does this task. Ask your Radio Shack dealer or 
electronics dealer for a demonstration. 

6. Try running the tape through Rewind and Fast Forward a few 
times. This will remove dust or other material on the tape that 
is preventing a load. 

7. Let your computer warmup for a few minutes before attempt- 
ing to load programs. 

8. Try a different cassette recorder. 

9. Problems can result from fluctuations in your power lines, 
though this fs rare. As a precaution, try restricting the TRS-80 
to its own circuit. If possible, even run your cassette recorder 
and video monitor on a separate line. 

10. Ask your Radio Shack dealer about their "cassette modifica- 
tion" fix for Level II Basic computers. This is a hardware fix 
that might be covered by your TRS-80 warranty. It should 
make the volume control on your recorder less sensitive. 

11. If you are still not having much success, discuss the problem 
with your local computer dealer. 
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To aid you in reading and understanding this instruction booklet a for 
mat notation has been devised for introducing statements, commands 
and functions. An example of this notation is as follows- 



MID$(string1. n[,m]) = string2 

4» *" J * 




Items in lower-case are to be supplied by the 
user. In this example, "stringl" and "string2" 
refers to -information which the user will 
supply. 



Items in square brackets [ ] are optional. 
All punctuation except square brackets [ ] must be included, 
apital letters must be input exactly as shown. 



The following rules apply to notation: 

1. Items in capital letters must be input exactly as shown. 

2. Items in lower case letters are to be supplied by the user. 

4. Items in square brackets [ ] are optional. 

5. All punctuation (i.e., commas, parentheses, semicolons 
hyphens, equal signs) except square brackets [ ] must be in- 
cluded where shown. 

6. All blank spaces are optional, unless otherwise noted. 
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INCLUDING: 



•SHIFT-KEY ENTRIES 

o WRITING YOUR OWN SHIFT-KEY ENTRIES 

° RENUMBERING PROGRAM LINES 

• SPELLED-OUT ERROR MESSAGES 

• LEVEL HI'S DIGITAL CALENDAR-CLOCK* 
' CONVERTING HEX AND OCTAL 

• LOCKOUT RECOVERY 



The "Special Features" of LEVEL III BASIC are presented here first 
because some of them can be of immediate use. This is particularly true 
of the time-saving technique called Shift-Key Entries which allow you to 
enter ins tructions or string expressions by simultaneously pressing 
| SHIFT | and a letter key (A-Z). You'll also want to know about 
Renumbering Program Lines and about Spelled-Out Error Messages 
before you goon. 



'Requires that your TRS-80 include an Expansion Box. 

— 13 — 



,, •»>l~i-' »e-<J «<*— 



With Shift-Key Entries you can instantly enter Basic instiuctions and 
frequently used string expressions. These might include common 
responses to INPUT statements or just about any fre quently used 
phrase or formula. Ail you have to do is hold down |SHiFT| and type in a 
Single letter from A to Z 



For example, [ SHIFT 1 JP| instantly enters the instruction, PRINT. 

LEVEL II! BASIC contains a complete list of 26 Shift-Key Entries. These 
include mostly Basic statements and commands. 

For added con venie nce, the commands CONT, E DIT, and RUN are com- 
bined with JENTERJ . In other words, if your enter [SHIFTJ |c|. the com- 
puter wil l respond with CONT (ENTER). You will not have to press the 
[ENTERJ key. Other Shift-Key Entries include punctuations such as left 
parentheses and leading quotation marks. 

LSET LIST. LEVEL III BASIC maintains an updated list of Shift-Key 
Entries th at you ca n display on your screen by typing LSET LIST and 
pressing JENTERJ . If you change any of the Shift-Key Entries (see 
following section), this list will be automatically updated. 



For your added convenience, they are also listed here as follows: 

LEVEL IS! BASIC 
Shift-Key Entries 
SHIFT Key Sequence 



A 


AUTO 


B 


GET®( 


C 


ELSE 


D 


ED1T.4 


E 


EDIT 


F 


GOTO 


G 


GOSUB 


H 


INKEYS 


1 


INPUT 


J 


LINE INPUT 


K 


LINE( 


J 


LIST 


M 


LSET 


N 


NEXT 





PRINT USIN 


P 


PUT@( 


Q 


RETURN 


R 


RUN1 


S 


SAVE" 


'" T 


THEN 


U 


TIMES 


V 


LOAD" 


W 


LEFTS( 


V 


M1DS( 


Y 


R1GHTS( 


Z 


STRING$( 



NOTE. The downward arrow (i) is the symbol in this chart for [fNTERJ 
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You can use the LSET Command to write your own Shift-Key Entries.The 
format of this command is as follows: 



LSET 
A 



letter 

A 



'string expression" 
A ■ , 

Up to 15 characters 



Any single letter (A-Z) 



Command 



The LSET Command 



The "string expression" in an LSET command can be any string of up to 
15 characters. This makes it possible to use Shift-Key Entries for any oc- 
cassion where a repeated phrase or formula is entered into the com- 
puter. In addition to storing frequently used statements and commands, 
Shift-Key Entries are often used to store "input responses" 

Er.ampie. When writing programs that use LEVEL III graphics, you fre- 
quently find yourself typing in the same first five characters of a LINE 
statement, namely LINE(. You could make LINEf a Shift-Key Entry with 
the following: 

LSET L = "LINEf" |ENTERJ 
From t his poin t on, LINE( will replace LIST as the "Shift-L sequence:' 
Press |SHIFT| jTJ and your TRS-80 screen will display: 

LINEf 

To change the Shift-L sequence back to LIST you simply reverse the pro- 
cess by entering: 

LSET L = "LIST" |ENTER| 

Note. Loading LEVEL III will always bring up the orginal Shift-Key 

Entries. 



Example. Some programs may require you to repeatedly input phrases 
s"uch as "TOTALS:' "AVERAGE TO DATE',' "SALES TAX;' etc. You can 
save typing time by turning these phrases into Shift-Key Entries, such 
as: _ 



LSET T = "TOTALS" -[ENTER] 



LSET A = "AVERAGE TO DATE" lENTERJ 

LSET S = "SALES TAX" lENTER| 
Press i SHIFT] ST] and the word TOTALS will a ppear o n the screen. 
fsWTlfi reU^ns AVERAGE TO DATE, and ISH]FTJ H3 returns 
SALES TAX. 

Shift-Key Entries with ENTER. The downward arrow (i) is used in the 

LSET list as a symbol for ENTER. However, it is not recognized as such 

by Basic. Pressing Q will cause the cursor to move down to the next 

line. 

To add ENTER to one of your own Shift-Key Entries, you use the CHRS 

string with the ASCII value for ENTER (13). Technically speaking, you 

concatenate the ENTER key on the rest of the string. The format is as 

follows: 

LSET R = "RUN" + CHRS (13) JENTER | 

LSET RE^ET You can "turn off " all the Shift-Key Entries by typing LSET 
RESET and pressing JENTER| .The purpose of this command is to free 
shift-letters for possible use with printers that have lower-case letters. 

LSET SET. This command will turn Shift-Key Entries back on again. 
Note. Available Ram memory is not affected in any way by using LSET 
SET or LSET RESET. 
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Renumbering program lines is a very useiui feature that ease; iho path 
to programming excellence. You can renumber to "make room" in a pro- 
cram sequence where additional lines need to be inserted or you can 
use it to better organize program lines. 

The NAME Command. In LEVEL III BASIC, the NAME Command is used 
to renumber program lines. It is a really flexible command, as you can 
see by its format: 

NAME [[new number] [,[old number] [.increment!!] 
A & .4 A 

Increment of new 
sequence (optional) 

Line number where 

you want to begin 

new sequence (optional) 

First line number of 
new sequence (optional) 



Command 



The NAME Command 



The NAME command automatically updates all the line number 
references following GOTO, GOSUB, THEN, ELSE, RESUME, IN- 
PUT#LEN, ON...GOTO, and ON...GOSUB. The first time you execute a 
NAME command these particular line numbers are allotted a total of 
five spaces each. This creates a gap in some statements such as, 10 
GOTO 50, 80, 100. On subsequent executions of NAME, this gap 
remains but is not again increased in size. 

From zero to three numbers can follow the NAME command. They are 
optional and include the following: 

— New number. This refers to the first line number in a new se- 
quence. If you don't include it, the first number will be 10. 
—Old number. This is the current line number where you want the 
new sequence to begin. If, for example, you wanted a program 
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to be renumbered beginning at line number 500, you would put 
500 at' this location. If you don't include an "old number;' the 
complete program will be renumbered from its beginning line 
number. 
— lncrernent.,This is the increment you want in the new sequence. 
If you don't use it, the program will be renumbered in a se- 
quence of 10 (10, 20, 30, 40, 50, etc.). 

Examples. The three optional numbers following the NAME command 
make it very versatile. You can use it to renumber program lines in any of 
the following ways: 



Command 

NAME 



NAME 100 



NAME 100, 50 



NAME 100, , 50 



NAME, 100 



Explanation 

Renumbers the entire program. The 
first line number will be 10 and 
each following line number will be 
incremented by 10 (10, 20, 30, etc.). 



Renumbers the entire program. The 
first line number will be 100 and. 
each following line number will be 
incremented by 10 (100, 110, 120 
etc.). 



Renumbers program beginning at 
line 50. Line 50 will become line 100. 
Each following number will be in- 
cremented by 10 (100, 110, 120. etc.). 



Renumbers entire program. The 
first line number will become 100 
and following line numbers will be 
incremented by 50. (100, 150, 200, 
etc.). 



Renumber program beginning at 
existing line 100. Line numbers 
following 100 will be incremented 
by 10 (100, 110, 120, etc.). 
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NAME. , 100 



Renumbers entire prog'.-fm. Th<- 
firsi Hno number will become 1 line 
10 and the following numbers wil! 
be incremented by 100 (10, 110, 210, 
etc.) 



NAME, 500,20 



Renumbers program beginning 
with, -existing line number 500. In- 
crements by 20 (500, 520, 540, etc.). 



NAME 100, 50, 20 



Renumbers the program— begin- 
ning, at existing line number 50. 
Line 50 will become line 100. In- 
crements by 20 (100, 120, 140, etc.) 

Note. NAME cannot be used to change the order of program lines. Also, 
it will not create a line number greater than 65529. An ILLEGAL 
FUNCTION CALL error will result if either of these is attempted. 

If you omit "THEN" from an IF...THEN statement the following line 
number will not change when you use NAME. In the statement, 30 IF 
AS = "YES" 60, the number 60 will not be changed. However, in the state- 
ment, 30 IF A$ = "YES" THEN 60, the number will be changed 
accordingly. 
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Level III saves you the trouble of looking up error code abbreviations by 
printing out the complete error message. Instead of displaying the Level 
II code: 

?TM ERROR IN 10 
for a Type Mismatch error, Level III displays: 

- TYPE MISMATCH IN 10 

All Level III error messages are listed on your Level ill Basic Reference 
Card. For convenience, they are also listed here as follows: 



LEVEL III ERROR MESSAGES 



Error 


Level II 


Code 


Abbreviation 


1 


NF 


2 


SN 


3 


RG 


4 


OD 


5 


FC 


6 


OV 


7 , 


OM 


8 


UL 


9 


BS 


10 


DD 


11 


10 


12- 


ID 


13 


TM 


14 


OS 



Level III 
Error Message 
NEXT without FOR 
Syntax error 
Return without GOSUB 
Out of data 
Illegal function call 
Overflow 
Out of Memory 
Undefined Line 
Subscript out of range 
Redimensioned array 
Division by zero 
Illegal direct 
Type mismatch 
Out of string space 
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Error 


Level II 


level III 


Cede 


Abbreviation 


Error Mossaga 


> 


LS 


String too long 


16 


ST 


String formula too complex 


17 


CN 


Can't Continue 


18 


NR 


' No RESUME 


19 


RW 


.-RESUME without error 


20 


UE 


Unprintable error 


21 


MO 


Missing operand 


22 


FD 


.Bad file data 


23 


L3 


Disk Basic only 



More Information. For further explanation of these error messages, refer 
to Appendix B, pages B/2-B/3 of your Radio Shack LEVEL II BASIC 
Reference Manual.* If you don't have a copy of this publication, check 
with your Radio Shack dealer. 



'LEVEL II BASIC Reference Manual, CopyrigM 1978 by Radio Shack. A Division of Tandy 
Corporation, Ft. Worth, Texas, 76102. 
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LEVEL III stores a string, TIMES, that keeps track of the date and time, 
providing your TRS-80 Computer system includes a Radio Shack 
Expansion Box. This accessory is necessary because TIMES requires a 
Real Time Clock, a feature of the Expansion Box. 

TIMES can be utilized like any other string. It can be used in any program 
where timing is useful, or where you might want to display the date. 

The CMD "R" Comrnand. When you load LEVEL III BASIC, the TIMES 
string contains all zeroes. You can set it to the correct time and date or 
to any time and date you want by using the CMD"R" comrnand. The for- 
mat of this command is as follows: 

CMD"R" , "mm dd yy hh mm ss" | ENTER] 



A 



A A A A 



seconds 



minutes 



hours 



year 



day 
month 



Command ' 

Notice that you, are not required to enter dashes or commas between 
each number. The format for TIMES has been done for you and it is fixed. 



"Requires Radio Shack's TRS-80 Expansion Box. 
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Each entry requires a two digit number, if the date is May 7, enter 07 
for day. 

The hh (hours) is based on a 24-hour clock which includes hours 01 to 24. 
The morning hours (a.m.) are 01 to 12, while the afternoon hours are 13 
to 24. 

Example. To set the date, July 25, 1979,* and the time, 2:15 p.m., enter: 



CMD"R" , "07,01 7S 14 15 00" I ENTER 

A ' 



leave one space 

Regardless of whether you set the Digital Clock-Calendar or not, it 
begins keeping track of the time and date the instant LEVEL III BASIC is 
loaded. All settings start at 00. 

Hints on Using TIMES. You can use TIMES with RIGHTS, LEFTS, or MIDS 
to display one or any combination of the elements in the Digital Clock- 
Calendar. For example, the instruction, PRINT LEFT$(TIME$, 8) will 
return just the date. Other examples include: 



Instruction 

PRINT RIGHT3(TIME$, 2) 
PRINT MID$(TIME$, 10,2) 
PRINT MIDSfTIMES, 13, 2) 
PRINT RlGHT$(TiMES, 8) 



Explanation 

Returns seconds 
Returns hours 
Returns minutes 
Returns time 



The computer will recognize the above "Returns" as string elements, 
not numbers. Therefore, you cannot use these commands to make com- 
parisons. In order for the computer to recognize the returns as numbers, 
you need to use the VAL function. For example: 

10X = VAL(MIDS(TIME$, 10,2)) 

20 IFX<12THEN80 
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Level ill includes a'routine that automatically converts hexadecimal 
(base 16) and octai (base 8) numbers into decimal numbers. 

Thus, hexadecimal and octal numbers can be supplied directly to Basic 
programs, which always require decimal numbers. You don't need to do 
the conversion. Simply prefix hexadecimal numbers with JT] [HJ and 
octal numbers with ["&"! ■ 

This will work with all Basic statements and commands except DATA 
statements or in response to INPUT statements. 

You can use this feature as a simple conversion calculator by using the 
PRINT command. For example, to convert the hexadecimal number 
4A5F to decimal, enter: 

PRINT &H4A5F 
and the computer will answer with: 19039. 

Example. If you want to POKE the hex value FF (255 decimal) into loca- 
tion 4A5F (19039 decimal), use the statement: 

POKE &H4A5F, &HFF 
A subsequent PEEK at location 19039 will return the value 255. 
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A System Lockout is when you lose control of your computer. It just sits 
there and "smiles" at you. No matter what key you press, nothing hap- 
pens. 

In Level II Basic, you can get out of this problem by pressing the RESET 
button in the back, upper-left-haiid corner of the keyboard case. 
Howeyer, if you have an Expansion Box this will result in a complete loss 
of your program from memory. 



LEVEL 

i BREAK ■ key just as yo 



I BASIC eliminates this problem by allowing y ou to us e the 
would use RESET. Using the jBREAKj key, 
even with an Expansion Box, will not result in the loss of a program. The 
system will start up again, and your program will be preserved. 
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INCLUDING: 



• CHARACTER MODE 
« GRAPHIC K/iODE 

• LINE STATEMENT 

" EXAMPLES OF GRAPHICS PROGRAMS 

• GET® STATEMENT 

• PUT® STATEMENT 

» NOTES ON USING GET® AND PUT® 

• DIMENSIONING GRAPHIC ARRAYS 

° MORE EXAMPLES OF GRAPHICS PROGRAMS 
» EXAMPLES OF ADVANCED GRAPHICS 



If you've had any experience at all working with Level II graphics, you 
will immediatelv recognize the expanded possibilities that LEVEL HI 
graphics give you. 

LEVEL III graphics will generate a line or rectangle between any two 
points on the screen. This frees you from the tedious task of defining all 
the points yourself, as you must do in Level II Basic. 

LEVEL III graphics also let you store a graphic array for later use on the 
same or a different portion of the screen. With this added capability, 
you'll find yourself writing more programs with graphs, pictures and 
even animation. 
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There are two modes of graphics presentation called Character Mode 
and Graphics Mode, in the first of these, your TRS-80 screen is divided 
into a grid that measures 64 "character positions" across by 16 
character positions down. 



X(0-63) 



ii "urfjT™ 

"jiiil.'i'.jin; 
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Y(0-15) 



! 
? 
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SCREEN (Character Mode) 

Each character position in Character Mode is further broken down into a 
two-by-three grid of "graphic blocks" that look something like this: 



When you are in Character Mode, you can put any alpha-numeric 
character on the screen at any specified character position. Also, you 
can use any one of a set of special "graphic symbols" 
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There are 64 graphic symbols made possible by filling different com- 
binations of graphic blocks in a character position, such as: 
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&_, 




_—<. — _i 


m 
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Using CHRS-To specify a particular graphic symbol, the string expres- 
sion CHR$ is used. This expression will return any alpha-numeric 
character or graphic symbol when the appropriate ASCII value is sup- 
plied with it, such as CHR$(147). 

Each alpha-numeric character has been assigned an ASCII value of 
from 32 to 127, while each graphic symbol has a value of 128 to 191. 

The ASCII values and their corresponding alpha-numeric characters are 
listed on page C/2 of your LEVEL II BASIC Reference Manual. The follow- 
ing program will display the graphic symbols with their corresponding 
number: 

10 FOR X = 129 to 191 

20 PRINT X; :PRINT CHRS(X) 

30 NEXT 
Instead of running the above program each time you want the value for a 
specific symbol, you can determine the value with the following: 

1. Assume that each graphic block has the following value: 



1 


2 


4 


8 


16 


32 
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2. The code for any graphic symbol is 128 plus the tola! va!ur> of 
the graphic Diocks that are to be "turned oa 1 CHRS(128) returns 

M 6 't nk ™ P r?e Ce - CHRS(129) iurns on the upper-left-hand graphic 
block. CHR${128 + 11) looks like this- 



t s , .•:''- : ;3 



LU 



Character Mode Coordinates. When using the Level II Basic statement, 
; n „ ^ character P° sition is assigned a unique number from to 

.023 These positions are illustrated by the "TRS-80 Video Display 
Worksheet on page E/1 of your LEVEL I! BASIC Reference Manual. 

Thus if you wanted to display the message, "THE GAME IS UP" in the 
middle of the screen, you could do so with the following: 
PRINT® 468, "THE GAME IS UP" [ENTER! 

l°H W pMT^ hen ^ Sinfl LEVEL '" BASIC 9raphlC stat ements (LINE, GET®, 
and PUT®) m Character Mode, the "X" coordinates (0-63) and the "Y" 
coordinates (0-15) are used to define character positions. Position 468 is 
referred to as "20, 7" where the X coordinate is 20 and the Y coordinate 

You can convert frorr- character position numbers to "X" and "Y" -oor 
dmates by using the following formulas: 

X = N - (64 * Y) 

Y = INT(N/64) 

In the above example, character position 468 would be converted as 
follows: 

X = 468 -(64* 7) Y=INT(468/64) 

X = 468 -448 Y=INT(7.31) 

X = 20 Y =7 

—30— 



To convert the other way, from coordinates to character position 
number, use: 

N=(Y*64 + X) 

Using the same example: . 

N = (7 * 64 + 20) 

N = 448 + 20 = 468 

The most important thing to remember is simply that in Character Mode 
the screen is 64 across by-16 down. 
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The second mode of graphic presentation is called the Graphics Mode. 
In this mode, the screen is divided into a much finer grid using the 
graphic-blocks described above. The grid is 128 across by 48 down: 

X(0-127) - 



Y(0-47) 



SCREEN (Graphics Mode) 



The Level II Basic functions SET, RESET and POINT use the screen in its 
Graphics Mode. Thus, if you want to turn-on graphic-block 10,29, you can 
do so by entering: 

10 SET (10,29) 

RUN ENTER 
For more information on SET, RESET and POINT see pages 8/1-8/2 of 
your Radio Shack LEVEL II BASIC Reference Manual 

The graphic statements LINE, GET® and PUT® can be used in either 
Character or Graphics Mode. Descriptions of their uses are found in the 
following pages. 
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The LINE statement can be used to draw a line between any two points 
on the screen or to draw a rectangle, assuming the two points are op- 
posite corners of the rectangle. It can be used in both the Character 
Mode and the Graphics Mode. 
The format of the LINE statement in Character Mode is as follows: 



LINE(x1,y1) 
A • 



-(x2,y2), "string expression" 



Any string or 
function that 
returns a string 



Defines two 
Character Positions 



A A 
Fill in box 
(optional) 

Creates a box 
(rectangle) as 
defined by the two 
points (optional) 



Statement 

LINE Statement 
(Character Mode) 

When the LINEstatement in Character Mode is executed, a line or rec- 
tangle is drawn between points (x1,y1) and (x2,y2) using the first 
character of the string expression.Thus, if the string expression is • XEO 
GEE GOLLY',' "the line or rectangle will be drawn using the X character 
only. 
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The string expression may be a string literal as above, or it may be a 
string variable (such as AS), or it may be a function that returns a strina 

(such as CHRS(142)). 

The statement. 10 LINE (32,14)-(45,10), CHR$ (129), would generate a line 
between character positions (32,14) and (45,10) using the graphic symbol 
described by CHR$ (129). 



True lines can only be generated if they are vertical or horizontal. Ex- 
ecuting the following statement: 

10 LINE (32,14)-(45,10),"X" 
will result in a line that looks like this: ' 
X 
XXX 
XXX 
XXX 
XXXX 

If the optional B is included in a LINE statement, a box (rectangle) de- 
fined by the two points is drawn. Adding "B" to the above example: 

10 LINE (3ai4)-(45,10),"X",B 
A 

don't forget 
the comma 
will result in a rectangle that looks like this: 

XXXXXXXXXXXXXXX 



If the optional BF is included, a filled-in rectangle is drawn. Adding BF to 
our example: x 

10 LINE (32,14)-(45,10),"X",BF 

results in the following: 

XXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXX 



Obviously, you cannot draw a rectangle between two horizontal or two 
vertical points. The points have to define diagonally opposite comers of 
the rectangle. 

To clear the screen of the above graphic, a blank string (" ") can be used 
such as: 



20 LINE (32,14)-(45,10)," ",BF 



X 
X 
X 



X 
X 
X 



XXXXXXXXXXXXXXX 
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LINE (xlrfHxS^), SET [, B [F]] 

& * t 

Fill in box 
(optional) 

Creates a box 
as defined by 
the two points 
(optional) 
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HAyiNG FUN WITH BOXES 



Turn on 
graphic-blocks 



The following program will draw a filled-in box on the screen, ieave it for 
a few seconds, then erase it: 

Program 

10CLS 

20 LINE (10,33)-(18,39),SET,BF 

30 FORZ = 1 TO 350: NEXT 

40 LINE (10,33)-(18,39),RESET,BF 
A few simple modifications to the above program will make the box 
"animated". It will appear to move across the screen: 



Explanation 

clears screen 
turns on box 
timing loop 
turns off box 



Defines two 
graphic-block 
| positions 
I 

Statement 

LINE Statement 
(Graphics Mode) 

Sgt ZZl ™™^Z%^ 9 % i r t « 1 ' a '"» ° r 'ex- 
propriate graphic-blocks. * (x2 ' y2) by turnJn 3 °" th 8 ap- 

As in the Character Mode, the B and tho nc 

to a LINE statement resu Its i a how ♦ *"' ° P ti0naL Addin S a "B" 

Pomts. Adding a -bf- Sts Tn l^ZToT ^ * "» tW ° 

"^"^vn^Tz:^,!" rep,acsd with the ™« 

the statement. S9 the llne or rectangle described by 



Program 

10CLS 

20 X = 10:X1 = 18:Y = 33:Y1 = 39 

30 LINE (X,Y)-{X1 t Y1),SET,BF 

40 FORZ=1 TO 100: NEXT 

50 LINE (X,Y)-(X1,Y1),RESET,BF 

60X = X + 4:X1=X1+4 

70 GOTO 30 



Explanation 
clears screen 
assigns value 
turns on box 
timing loop 
turns off box 
assigns new values 
program loop 
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HAVING FUN WITH ARROWS 
X3.Y3 



X1.Y1 



X2.Y2 



X4.Y4 



THE ARROW 
Program 
10 CLS 

20 Y3 = ^ Y y7 2 o^ = 27:Y2 = 26:X3 = 21: 
Y3 = 23:X4 = 21:Y4 = 29 

30 LINE(X1,Y1)-(X2,Y2),SET 
40 UNE(X3,Y3)-{X2,Y2),SET 
50 LINE{X4,Y4)-(X2,Y2),SET 
60FORZ=1 TO 100:NEXT 
70LINE(X1,Y1)-(X2,Y2),RESET 
80 LINE (X3.Y3)-(X2,Y2),RESET 
90 LINE (X4,Y4)-(X2,Y2),RESET 

100X1=X1+3:X2 = X2 + 3:X3 = X3 + 3- 
X4 = X4 + 3 

110 GOTO 30 



ExplanaJion 

clears screen 




assigns new values 
program loop 
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GRAPHIC SYMBOL 

'his program will alternately fill the screen with the graphic symbols 



described on page 29. 
Program 
10 CLS 

20 FOR I = 129 TO 191 
30 LINE~{0,0)-(63,15),CHR$(I),BF 
40 FOR J = 1 TO 100:NEXT J 
50 NEXT I 



Explanation 

clears screen 
assigns values 
fills screen 
timing loop 
loops back to 20 



CRAZY LINES 

This program creates patterns of "crazy" lines on the screen: 



Program 

10 FOR N = 

20 CLS 
30Y1=0:X1; 



.1 TO 10 



= 



40 FOR i = 1 TO 30 

50 X2 = RND(127):Y2= RND(47) 

6U LINE (X1,Y1)-(X2.Y2),SET 
70X1=X2:Y1=Y2 

80 NEXT l:NEXT N 



Explanation 

assigns values 
(10 patterns) 
clears screen 

defines point (upper-left 

corner of screen! 
assigns values (30 lines) 
defines second point as any 

random point on screen 
draws iine 
redefines first point as 

second point 
loops back to 10 



Variation: To change this program to create its pattern of lines on a 
white background, add line 25 LINE (0,0)-(127,47),SET.BF and change 
SET to RESET in line 60. 
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Often ,t is useful to save the graphics that are displayed on the screen 
to reuse iater on the same-or different-portion of the screen You can 
do this with GET® and PUT® statements. The GET® statement "Jets" 
an area o graphics from the screen and saves it In an arra* The PUT® 
statement "puts" a graphics array back on the screen. ® 

The format of a GET® statement is: 

GET® (x1,y1). ( X 2,y2 ) [,G] .array name 
^ ^ 

i 

Such as A# or A%, etc. 



indicates Graphic Mode 
(optional) 



Defines points on screen 
Statement (@ must be included) 

GET® Statement 

onZ^ GET@ J f tatSment ' S eX6CUted ' thS gra P hics that ™ currently 
on the screen and positioned inside the box defined by (x1,y1 W x2 y2) a e 
saved into the array. For example: V 

10 GET® (10,4)-(20,9),A% 

arrrl? Slf tha * are J n the bo * d ^"ed by (10,4) and (20,9) in the 
array, A /.. (Don t forget to d.mension your arrays! For more information 

%%'XSS? 10 Shack LEVEL " BAS!C Reference «•« ;= 

The optional [ GJ ,n a GET® statement determines the mode of the X Y 
GrS'"t% " ISmcluded ' the coordinates are assumed to be 
riS th C ° 0r f lnates (^ X = to 127, Y = to 47). If G is not in 
cludeo, the coordmates are assumed to be in the Character Mode. 
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Once you have saved the graphics in an array with a GET® statement, 
you can put the array back on the screen at any location with a PUT© 
statement. The format of PUT® is: 

PUT@(x1,y1)-(x2,y2) [.action] .array name 

A ■ — r^' " ♦ f 

Such as A#, A%, etc. 

Indicates Graphic Mode 
(can use SET, RESET or 
other options.. .see below) 

Defines points on screen 

Statement (@ must be included) 

PUT® Statement 

When the PUT® statement is executed, the graphics in the named array 
are put on the screen inside the box defined by (x1,y1) and (x2,y2). For 
example: 

10 PUT@(15,4)-(25,9),A% 

puts the graphics saved in the array, A%, on the screen inside the box 
defined by (15,4)-(25,9). 

If no [.action] is specified, the coordinates are assumed to be in 
Character Mode. 'When an [.action] is specified, the coordinates are 
assumed to be in Graphics Mode. The "action" of a PUT® statement 
may be one of the following: 

SET . Puts the array on the screen exactly as it was saved. 

All the "on" positions are turned on, and all the "off" 

..positions are turned off. 

RESET Puts the complement of the array on the screen. Ail 

the "on" positions are turned off, and all the "off" 

positions are turned on. 
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AND Each position in the array is "ANDed" with the cur 

rent status of that position on the screen A position 
will be turned on only if it i s "on" in ,"„ P ° S,tlon 
"on" on the screen '" the &nay and 

OR Each position in the array is "ORed" with its cor 

responding position on the screen. A position is 

XOR Each position in the array is "XORed" with its cor 

respond.ng position on the screen. A position Ts 
turned on only if „, status in tne ^J™ ,£ 

of its status on the screen fh^i.c 

two put @ z^Z'ZS^Tg th vr n with 

with the surrounding area. By usi OR v ,1 f ' ' ^ '* 
tersect and show both objects 3VS tW0 objects in ' 



nonris ©sa usisi© @s¥@imss> psstt® 

Always use the same mode when you are GETting and PUTiing an array, 
if you GET® an array in Character Mode, use a Character Mode PUT® to 
put it back on the screen. Otherwise, the PUT® will produce undefined 
results. 

Except for animation and certain special effects like blinking, it is usual- 
ly better to use Character Mode when GETting and PUTting arrays. This 
Mode is faster because it moves from character position to character 
position instead of from graphic block to graphic block. It is also easier 
to define than Graphics Mode. 

A handy procedure for GETting an array, wiping it off the screen, and 
PUTting it back is as follows: 

10 GET® (X1,Y1)-(X2,Y2), A% 

20 LINE (X1,Y1)-(X2,Y2), " ",BF 

30 PUT® (X3,Y3)-(X4,Y4),A% 
Line 20 wipes out the array with blank spaces, " ". 
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Important. When using GET® and PUT®, it is important to remember 
that Character- Mode and Graphics Mode simply define two ways to 
divide up the screen. Any alpha-numeric characters, graphic symbols, 
lines, or boxes inside the defined space can be saved with a GET® in 
either mode. 
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The array names in PilTrt? a „H ~cx~ 

dimensioned with enouah "array l^If- f atements h sve to be 

data. Otherwise, an .^^(^^0^^^^ "^^ 



Type of Array 
Integer Array (%) 
Single Precision Array (!) 
Double Precision Array (#) 



Number of Elements 

bytes/2 

byies/4 

bytes/8 



strT£ Fo^^ampfS^tr ST,"" USeS ' 8 ""» e ^ ** 
GETting an entire screen «?u,°re8 S"^? IS "™ "^^ 
character area requires 80 bytes. " Q ETting an 8 by 10 

Byles=.(Ct,a,acle,s; 8 |!2 " Umb " °' b » les - T "= fonmrta i* 
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RESHAPING AN ARRAY 
The following program is an example of "reshaping an array" We GFT© 
an array that is in one shape of box and PUT® it into another shape of 
box. This technique can be made to work well in Character Mode but it 
is very difricult to accomplish in Graphics .Mode. 

Program 

10CLS 

20 PRINT® 0, "HANG IN THERE!' 



30 FOR Z = 1 TO 200: NEXT 

40 DIM A%(7) 

50 GET® (0,0)-{15,0), A% 

60CLS 

70 PUT® (0,0)-(0,15),A% 

80 GOTO 80 



Explanation 
clears screen 
start message at 

Character Position 
timing loop 
dimension array 
GETting array and 

calling it A% 
clear screen to wipe out 

message 
PUTting array back in 

different shape 
creates loop to prevent 

READY prompt from 

wiping out our 

message (try it without 

this line) 
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ROCKETS 

rocket moves" smoSy up the S" m^' ,n the NrSt *"""«". the 
Graphics Mode. In the second I ™! ^ SCreen 5ecause if '« '" 

and the m ove m ents th a:eTrS d b u P t r0 m 9 u a ch' f : s e te S r WitCh * ^^ M ^ 
Program _ , 

■,r .„~ • Explanation 

10 ROCKET IN GRAPHICS MODE remark 
20 CLS 



30 LINE(3,1)-(3,2), SET 
40LINE{2,3)-(4,4), SET,BF 
50LINE(1,4).(1,5), SET 
60LINE(5,4)-(5,5), SET 
70 DIM A%(2) 

80GET@(1,1)-(5,6),G,A% 
90 CLS 

100 FOR Y = 42T01 STEP -1 

110PUT@(1v H5fY + 5)iSETiA% 

120 NEXTY 

130 CLS 

140 GOTO 100 



clear screen 

> draws rocket 

dimension array 
GETting array 
clear screen 
so rocket will start at 
bottom of screen 
and move up 
PUTting array on bottom 

of screen 
creates movement 
clears screen 
let's do it again, and 
again, and again... 



The difference between Graphic Mode and Character Mode is 
somewhat like the difference between today's movies and silent pic- 
tures. See if you can find where we changed the above program to put it 
in Character Mode: 

Program 

10 'ROCKET IN CHARACTER MODE 

20 CLS 

aO LINE (3,1)-(3,2), SET 

40 LINE (2,3)-(4,4), SET, BF 

50 LINE(1,4)-(1,5), SET 

60 LINE (5,4)-(5,5), SET 

70 DIM A%(7) 

80 GET@(0,0)-(3,3),A% 

90 CLS 

100 FOR Y = 12 TO 1 STEP -1 

110 PUT@(0,Y)-(3,Y + 3),A% 

120 NEXTY 

130 CLS 

140 GOTO 100 

To slow this down a bit, try adding a FOR/NEXT timing loop between 
Lines 110 and 120. 

Animation Hint. The program PUTs the graphic image of a rocket ship on 
the screen at a specific location on the lower-left corner of the screen. 
Then it creates' movement by progressively PUTting it at a higher loca- 
tion. But what makes the image disappear from its old location each 
time it is PUT. at a new location? 
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— rocket 



3mpty space 



Array A% 



care of Inis. the above program clears the screen will, a OLS 

bla„K spaces r Vln G^T.S? ^"K K^™" 
SI i aT n ° """ ""' " " """»" *»'<*»"« «»n PUT I, "a I ~.Z 



FLASHING SHIP 

Tn>s program draws the image of a ship on the screen. !n Graphics 
VScde. it GETs 'the image in array A% and clears the screen. Then, it 
repeatedly PUTs the image back on the screen at a different location us- 
ing "XOR" as the action Indicator. This technique causes the image to 
flash on and off. 

Program 

5CLS . 

10 DIM A%(50) 

20 LINE (3,1)-(3,2), SET: LINE (2,3)-(4,4), SET, BF: LINE 
(1,4)-(1,5), SET: LINE (5,4)-(5,5), SET 

30GET@(1,1)-(5,6), G, A% 
40 CLS 

50 PUT® (20,20)-(24,25),XOR,A% 
60 FORT=1 TO 50: NEXT 
70 GOTO 50 
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These examples should give you an idea of some of the more advan-p* 

cZ Sr^IS '" 9raphics - Try them out t0 ~^ ~ »" 

PROGRAM: FADING BOXES 

10 DIM A%(600), B%(600) 

20 RN S dS R SET = B 1 :NEXT ^ < RND < 127 >-™<W.ND(1 2 7, 

30 FS = ■• * » :X = RND(63):IF X>32 THEN M = 64 - X ELSE M = X 

Z r^lvn T ° M '' GET@(1 '°HX-15),Ao/o:GET@ (X,0)-(62,15),B% 
50 LiNE (X,0)-(X + 1.15),FS,B:F$ = " " 

60 GOtS2T' (X ~ 1 ' 15) ' A0/0 '' PUT@(X + 1 ' 0H63 ' 15 '' B%:N ^^^ 

PROGRAM: SAILING SKIPS 

10 CLS 

20 LINE (3.1H3.2), SET:LINE (2,3)-(4,4) SET BP 

LINE (1.4H1.5), SET:LINE (5,4)-(5,5), SET 
50 DIM A%(2):GET@(1,1}-(5,5),G.A% 
60 CLS:DIMB%(2) 
70 LINE (0,2)-{1,2), SET:LINE (2,1)-(4,3), SET BP 

LINE (4.0H5.0), SETrLINE (4,4)-(5,4), SET 
110 GET® (0,0)-{5,4),G,B% 
120CLS:X = 120:Y = 41 
130IFY = 0ORX = 0THEN 120 
140 D = RND(2):IFD = 1 THEN 190 

150 S = RND(15i:IFX-S<0 THEN S = X 
160FORX = XTOX-SSTEP -1 
170 PUT@(X,Y)-(X + 5, Y + 4),SET,B% 
180 NEXT X:X = X + 1.GOTO 130 
190 S = RND(5):IF Y_S<0 THEN S*=Y 
200 FOR Y = YTOY-SSTEP -1 
210 PUT@(X.YHX + 4.Y + 4),SETA% 
220 NEXT Y:Y = Y + 1:GOTO 130 
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PROGRAM: LEVEL III BRAGS ABOUT ITSELF 

5 CLEAR 3C0 
10 READ A3 

20 IF AS = "END" THEN RESTORE:GOTO 10 
30 FOR W = 1 T05:CLS 
40 PRINT@470,"LEVEL 3 DOES IT!": 
PRINT@470 + 64,STRING$(16,95); 
50 FOR X = 1 TO L"EN{AS) 

60 LINE{X-1,X-1)-(64-X,16-X),MIDS(A$,X,1),B 

70 NEXT 

80 FORT=1 TO 90: NEXT 

90 NEXT: GOTO 10 

100 DATA HEY THERE, LISTEN, EVER SEEN, A BETTER, 
BASIC, NO WAY ONLY 

110 DATA LEVEL 3, DOES IT, AND MORE, !!!!!!, END 



PROGRAM: RADAR SCREEN 

10 FOR R = 15TO 1 STEP -1 

20 CLS 

30 FOR Y = TO 47 STEP 47 

40 FOR X = TO 127 STEP R 

50 LINE (64,24)-{X,Y),SET 

60 NEXTX.Y 

70 FORX = 0TO 127 STEP 127 

80 FOR Y = 0TO47STEPR 

90 LINE (64,24HX,Y),SET 

100 NEXTY.X. , 

110 NEXTR . 
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8 NEW MJD$ CAPABILITY 

' SEARCHING STRINGS WITH INSTR 

• DEFINE YOUR OWN FUNCTIONS 

' MACHINE LANGUAGE USER ROUTINES 

™:s*? sr n £; r :r ; 'r sce,, ~" f — «, ^ EL 

Perience using str in " rSo^,^^ "^J^ ^ «- 
very usefu,. o.^ your owr , Znc^^Zl^^ 
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In Level II Basic, the MIDS function is used to return a substring of a 
given string. The example program in your Level II Manual (see page 5/6) 
returns the "exchange" or first three numbers of a phone number. 

In LEVEL III BASIC, MIDS can be used on the left side of an assignment 
statement as well as the right side. This allows you to use MIDS to 
replace a portion of one string with another string. 

The format of MID$ on the left side of an equation is: 
MIDS (stringl, n [,m]) = strina2 

« A & A A 

Replacement string. 

Whole number (optional). 
See below. 



Whole number. Position 
where replacement begins. 



Such as AS 
String function 



MIDS 



i-ot example, the following program replaces the MO in "KANSAS CITY 
%*0" with a KS: 

10 AS = "KANSAS CITY, MO" 

20 MiDS(AS, 14) = "KS" 

30 PRINT AS 

RUN 

KANSAS CITY, KS. 
When using this function, you should be aware that MIDS literally 
replaces characters in stringl with characters in stringZ Therefore the 
replacement of characters will never go beyond the oriainal length of 
string! You cannot replace the MO in AS above with KANSAS. The result 
would be KANSAS CITY, KA! 

For the sake of further illustration, suppose that you wanted to replace 
the spelling J-O-H-N with J-O-N.The following program might seem to be 
appropriate: 

10 A$ = "JOHN" 
20 MID$(A$,3) = "N" 
30 PRINT AS 

but the result is JONN.This can be corrected simply by adding a space 
in strlng2 of line 20: 20 MID$(AS,3) = "N ". Now JOHN will become JON. 



i he characters in stringl, beginning at position n, are replaced by the 
characters in string2. ihe m is optionai; it refers to the number of 
characters from strmg2 that will be used in the replacement. If m is 
omitted, all of string2 will be used. 
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This .5 a nev. str. ,g function not found in Level II Basic. It allows you to 
se c rc„ a string for a specified substring. The format of INSTR is- 
INSTR ([n,] strrngl. string2) 
f A | 

J Such as B$ 

I Such as AS 

Number designating 
starting position 
of search (optional). 

Function 



tjo'.o that once a substring is found the search is discontinued. INSTR 
.;coa not continue searching for additional substrings. 

important: The INSTR function eliminates the need for using "instring 
subroutines" as described on page 5/9 of your Radio Shack Level !! 
BASIC Reference Manual. INSTR provides the same capability; it is 
much easier and faster to use. 



INSTR 

INSTR searches stringl for a substring that matches string2. When a 
match .a found, INSTR returns the starting position of the match. The n 
s optional. It designates the starting position of the search. If n is omit- 
ted, the search starts with the first character in string! 

If no match is found, or if n is greater than the length of stringl or if 
stringl is null, INSTR returns a zero (0). 

Example. The following example shows INSTR being used with and 

rubs°nn the BC- i0nal "' " SSarCheS the Strin 9 "ABCDEABCDE" for the 

Program 

10 A$= "ABCDEABCDE" 

20 B$ = "BC" 

30 PRINT INSTR (AS.BS) ' 

40 PRINT INSTR (3,A$,B$) 

RUN 

2 

7 



Explanation 



Without n 
With n 



' 



Result of 
Result of 



Ine 30 
ine 40 
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Often a program will contain a particular operation or function that is 
repeated seve r al times. By using the DEF FN statement you can define 
your own functions and save both time and memory. Instead of writing 
out the entire formula each time it is used, you only need to do a "func- 
tion cair 

DEF FN. This statement is used to name and define user functions. The 
format of the statement is: 

DEF FNvariable (parameter list) = function definition 
4 A A 

I 
What the function does 



Variable names such as D, A, etc., 
that are to be replaced when 
function is called 



Statement with variable 
to name function 

The variable name, which is any legal variable name, is tacked on to DEF 
FN to become the name of the function. An example would be: DEF FNA. 

The parameter list is one or more variables or string variables separated 
by commas and enclosed in parentheses. These variables are variables 
you want to replace when the function is called. Seems a bit com- 
plicated, but the examples that follow should help clarify it for you. 

The function definition is an expression that performs the necessary 
operation. It could be something like: A/4+ E*25. Variable names that 
appear in the function definition do not affect other program variables 
that happen to have the same variable names. 



I sample. In the following example, a function is defined that adds the 
= ccond power of one number to the third power of another. 

10 DEF FNA(D,E) = Dt2+Et3 

20 A = 1,B = 2 

30 PRINT FNA (A,B),FNA(2,3),FNA(4,3),FNA{5,2) 

RUN 

9 31 43 33 



We defined a function called DEF FNA that adds the second power of D 
to the third power of E. Since we want to be able to change the values of 
D and E, they are included in the parameter list. 

The DEF FN statement can also define a string function, as in this 
example: 

Program 

5 CLEAR 500 just so we'll have ample string space 

10 DEF FNST$(A$,B$) = AS + ", " + B$ 

20 INPUT "STATE";STS 

30 INPUT "CITY";CT$ 

40 F$ = FNSTS(CT$,ST$) 

50 PRINT F$ 

RUN 

STATE? NEBRASKA 

CITY? ALLIANCE 

ALLIANCE, NEBRASKA 
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NOTE: The variable name in the second example ends with a dollar 
sign($). Function name variable, like other kinds of variables, must in- 
dicate the type of value that is to be returned. Thus a function name 
variable may end with a $ (string), # (double precision), %(integer), or ! 
(single precision). The default is single precision (!). 
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In LEVEL III BASIC, the USR function has been expanded so that 10 dif- 
ferent machine language user routines can exist in memory at the same 
time. As with Level II Basic, the routines may be assembled with the 
TRS-80 Editor/Assembler and loaded with the SYSTEM command. Or, 
they can be POKEd into memory. It is no longer necessary to POKE the 
starting address of a user routine into memory. The DEFUSR statement 
is provided for this purpose. 

USR Function. The new format for this function is: 

USR[n](argument) 
A $> & 

Value to be passed to user routine 



to 9 (options 
Function 



Example. A user routine called USR3 has been POKEd into memory 
J-jginning at address 28000. Before calling the user routine, the program 
must execute the statement: 

DEFUSR3 = 28000 
A calling statement for this routine might look like this: 

A = USR3(B) 
If a user routine is called before the corresponding DEFUSR statement 
has been executed, an ILLEGAL FUNCTION CALL error results. 

It is still possibleto POKE the starting address of USR0 into memory, as 
described in Chapter 8 of your Radio Shack LEVEL II BASIC Reference 
Manual. 



USR 



The optional [n] is a number from to S. It is used to label the different 
machine language user routines. If it is not included, the "0" is assumed 
making the function the same as USRO. 

DEFUSR Statement This statement tells BASIC what the starting ad- 
dress of a routine is. The format of DEFUSR is: 

DEFUSR[n] = address 

I 
Where routine is located 

to 9 (optional) 

Statement \ 

DEFUSR 

The n is a number from to 9 that should correspond with the number of 
the user routine. If it is omitted, it is assumed to be a 0. 
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INCLUDING: 



• THE LINE INPUT STATEMENT 

• INPUTSLEN AND LINE INPUT#LEN 

• NEW LOAD AND SAVE COMMANDS 

• TURNING OFF THE SYSTEM CLOCK* 

• OUTPUT TO RS-232 PORT** 



The I/O features described in this section include two powerful addi- 
tions to Level II Basic's INPUT statement, and a much improved way to 
load and save cassette tapes. 

The INPUT features allow you to enter INPUT with commas or other 
punctuation without enclosing the whole input in quotation marks. You 
can also put a time limit on inputs, which adds a whoie new dimension 
to game programs and educational programs. 

By using the new LOAD and SAVE commands to replace Level ll's 
CLOAD and CSAVE commands, you eliminate much of the agony of 
loading and saving programs on tape. 

"Output to RS-232 Port" and "Turning Off the System Clock" are two 
things you don't have to even think about unless you have an Expansion 
Box as part of your TRS-80 System.They do, however, demonstrate some 
of the foresight of LEVEL III BASIC. 
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Requires TRS-80 Expansion Box 
"Requires RS-232 Port 
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THE EJRSI IMPPT Sl^vf isill?i¥ 

I^ UN rt E H IN / UTS,atement funotions ™ ch "ke INPUT except that it has 
some added capability. The format of this statement is: 

LINE INPUT ["prompt string";] stnng variable name 



Statement 



such as AS, B$, etc. 
such as CITY or NAME (optional) 

LINE INPUT 



As you can see from the format, LINE INPUT is frequently used for inout 
t«ng srmg literals. Unlike INPUT, this statement will assign a string 
v ^£|e name to the entire line of input. Every character typed up to 
[ENTER] w.lf be part of the string. This Includes commas colons 
quotes, or leading spaces. t-oions. 

Another aspect of LINE INPUT is that it /doesn't automatically print a 
quest.on mark <?, when it is executed, as do INPUT statements, if you 

Tuch a S %TTYr mark ' Y0U SimP ' y makS ll a Part ° f thS Pr ° mpt St ^ 

dirpTays^^Y'sTATF 01 ' ";" 9 UNE INPUT StatSment iS eX6CuSed ' il 
displays CTf, STATE: as the prompt string. You can then enter a 

response that includes a comma such as ALLIANCE, NEBRASKA Your 
response will be assigned to the string literal, CSS. 

10 LINE INPUT "CITY.STATE: ";CS$ 

20 PRINT CSS 

RUN 

CITY, STATE: ALLIANCE, NEBRASKA 

ALLIANCE, NEBRASKA 



By adding #LEN to an INPUT or LINE INPUT statement, you can impose 
a limit on the length of time allowed for a response to the INPUT prompt. 
And you don't need an Expansion Box because the timing is done with 
software. The format of this is: 

[LINE] INPUT#L"EN n,m:["prompt string";]variable name(s) 
A 
T 
n is seconds: 

m is line number to branch to 

if time limit is exceeded 

no space after INPUT 

The "n" is the time limit in seconds. You can use up to 8000 seconds, 
which is 2 hours, 13 minutes and 20 seconds! The "m" is the line number 
you want the program to go to if the time limit is exceeded . It could 
branch to a PRINT statement that says something like, "SORRY, 
DUMMY, YOU BLEW IT!!!" 

Other than tacking #LEN on INPUT and adding n and m, this statement 
works the same as any other INPUT or LINE INPUT statements. 

Example. This program selects random addition problems and gives you 
just four seconds to answer. 

Program 

5S = 4 

10X = RND(100) 

20 Y = RND(1'00) 

30 PRINT X:J' + ";Y;" = "; 

40 INPUT#LEN S,100;Q 

50 IF Q = X + Y THEN PRINT "SMART" ELSE PRINT "DUMB" 

60 GOTO 10 

100 PRINT "SLOW!" 

110 GOTO 10 
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To output to an RS-232 port, LEVEL III provides a PRINTS -3 statement 
wh.cn is used ;usi like the PRINT statement. The format of this state- 
men! is: c 

PRINT#-3. list of items 

Any of the things that 

can follow a PRINT statement 

Statement 



PRINT#-3 

This makes it easy to output to a line-printer or any other device vou 
hook up to the RS-232 port. Input from the RS-232 port still requires 'th» 
use of machine language routines. 

; h q e ,i; rSt | ^: acter sent b V B ^ to the RS-232 port causes the 
Kb-^s UAR, to initialize using the switches set on the RS-232 In 
TV*™"** th ' S def3Ult initializa «ion, send a dummy character to 
the ..S-232 port and then re-initialize using a machine language 
subroutine. 



"Requires RS-232 port. 
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CHR$ - ' 29, 34 

CMD " R " ' ■ 23-24.67 

CMD " T " • •■ ,67 

DEFFN • 58-59 

DEFUSR • 60-61 

GET@ " ■ 40,43-44 

INPUT#LEN 

' • • DO 

INSTR.,, „„ 

• 56-5/ 

LINE 

oo-35, 36 

LINE INPUT. 

• 64 

LINE INPUT#LEN 65 

L0AD ' .'.'.'.".'.".'.'.'.''.'.'.'.'.".'.■.'.".'.■.".".■.'.M 

L0AD? ' 66 

LSET 16-17 

LSET LIST. , . . , 

i4 

LSET RESET. : 1? 

LSET SET. "\ 7 

MiDS --- ^\\"".'.' 24." 54-55 

NAME..... : 

■ ■ 18 

PRINT#-3 

■''.''' • DO 

PUT@ ...; 41-44 

SAVE 66 

ti me$ •;. 23 

USR "11 „, 

• • 60-61 
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Animation 37,47-48 
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BREAK Key., 26.66 

Bunnell, David , t , , _ , . 

Cassette Modification , , .... 

Character Mode 28-31, 33, 43-44, 46-47 
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CHRS • 29, 34 

CM0 " R " 23-24,67 
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Defining Functions 58-59 
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Diminsioning Graphic Arrays 44 
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Error Messages , , 22 

Format Notation •, , _ 12 

Gates, Bill 3 
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Dimensioning Arrays , , 44 
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LINE (Character Mode) 

• , . 33-35 

LINE (Graphics Mode. 

' • 36 

LINE INPUT. 

64 

LINE INPUT#LEN 

■ 65 

LOAD 

66 

LOAD? 

•. 66 

Loading LEVEL 111:66 

Cassette File *' " 

Disk File ' 

' ' 8-9 

Froblems 

10-11 

Lockout Recovery. 

" 26 

LSET ,. 

: 16-17 
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LSET SET. 
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Machine Language User Routines 60 . 61 

Memory Requirement 

Microsoft... 
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MIDI .... 

" " 24, 54-55 

NAME 
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Octal Numbers... 

25 

POINT 

32 

PRINT®... 

• 30 
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Programs: 

Arrows .... 38 

Boxes 37 

Crazy Lines 3g 

DEF FN • , 5g 

Fading Boxes 50 

Flashing Ships 4 g 

Graphic Symbols _ 39 

INPUT#LEN. 65 

•NSTR 56 

LEVEL Hi Brags 51 

LINE INPUT. 64 

MID$ 55 

Radar Screen 5-5 

Reshaping an Array. 45 

Sailing Ships 50 

Turn Off System Clock 57 

PUT® 41 . 44 

Renumbering Program Lines 18-20 
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RS-232 Port [ 6a 

SAVE , 66 
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LSET RESET. 

LSET SET. 

LSET LIST. 

Shift-Key With ENTER. 

Turning Off 

Turning ON 

Writing Your Own 

Software Requirement. , . 
Strings 



System Clock 

Tables: 

Error Messages. . . 

Shift-Key Entries. 
TIMESS 



TRS-80 Computer: 
initializing 



Loading Program 

RS-232 Port 

System Clock. 

System Requirements. 
USR 



VAL Function 

Volume Sensitivity. 
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There are two modes of graphics presentation called Character Mode 
and Graphics Mode, in the first of these, your TRS-80 screen is divided 
into a grid that measures 64 "character positions" across by 16 
character positions down. 



X(0-63) 



ii "urfjT™ 

"jiiil.'i'.jin; 

lii'l lL.:,: r i 

\- ' 


i t;. 




il:.,. ;!.:..„...., 


; H ' i \ 


.|!!.'(i:it, ..i 1 


... .1 . . .., 




ILiililitlUlJ 



Y(0-15) 



! 
? 

LuiiJiiUJIUiliJi. 

SCREEN (Character Mode) 

Each character position in Character Mode is further broken down into a 
two-by-three grid of "graphic blocks" that look something like this: 



When you are in Character Mode, you can put any alpha-numeric 
character on the screen at any specified character position. Also, you 
can use any one of a set of special "graphic symbols" 

-28- 



There are 64 graphic symbols made possible by filling different com- 
binations of graphic blocks in a character position, such as: 
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Using CHRS-To specify a particular graphic symbol, the string expres- 
sion CHR$ is used. This expression will return any alpha-numeric 
character or graphic symbol when the appropriate ASCII value is sup- 
plied with it, such as CHR$(147). 

Each alpha-numeric character has been assigned an ASCII value of 
from 32 to 127, while each graphic symbol has a value of 128 to 191. 

The ASCII values and their corresponding alpha-numeric characters are 
listed on page C/2 of your LEVEL II BASIC Reference Manual. The follow- 
ing program will display the graphic symbols with their corresponding 
number: 

10 FOR X = 129 to 191 

20 PRINT X; :PRINT CHRS(X) 

30 NEXT 
Instead of running the above program each time you want the value for a 
specific symbol, you can determine the value with the following: 

1. Assume that each graphic block has the following value: 
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32 
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2. The code for any graphic symbol is 128 plus the tola! va!ur> of 
the graphic Diocks that are to be "turned oa 1 CHRS(128) returns 

M 6 't nk ™ P r?e Ce - CHRS(129) iurns on the upper-left-hand graphic 
block. CHR${128 + 11) looks like this- 
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Character Mode Coordinates. When using the Level II Basic statement, 
; n „ ^ character P° sition is assigned a unique number from to 

.023 These positions are illustrated by the "TRS-80 Video Display 
Worksheet on page E/1 of your LEVEL I! BASIC Reference Manual. 

Thus if you wanted to display the message, "THE GAME IS UP" in the 
middle of the screen, you could do so with the following: 
PRINT® 468, "THE GAME IS UP" [ENTER! 

l°H W pMT^ hen ^ Sinfl LEVEL '" BASIC 9raphlC stat ements (LINE, GET®, 
and PUT®) m Character Mode, the "X" coordinates (0-63) and the "Y" 
coordinates (0-15) are used to define character positions. Position 468 is 
referred to as "20, 7" where the X coordinate is 20 and the Y coordinate 

You can convert frorr- character position numbers to "X" and "Y" -oor 
dmates by using the following formulas: 

X = N - (64 * Y) 

Y = INT(N/64) 

In the above example, character position 468 would be converted as 
follows: 

X = 468 -(64* 7) Y=INT(468/64) 

X = 468 -448 Y=INT(7.31) 

X = 20 Y =7 
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To convert the other way, from coordinates to character position 
number, use: 

N=(Y*64 + X) 

Using the same example: . 

N = (7 * 64 + 20) 

N = 448 + 20 = 468 

The most important thing to remember is simply that in Character Mode 
the screen is 64 across by-16 down. 
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